home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / cdity / ModeProSrc.lha / Docs / SysReport.rx < prev    next >
Text File  |  1998-09-14  |  1KB  |  78 lines
  1. /* */
  2.  
  3. if ~show("l","rexxsupport.library") then do
  4.   if addlib("rexxsupport.library",0,-30,0) then
  5.     say
  6.   else
  7.     exit 10
  8.   end
  9.  
  10.  
  11. sep=copies("=",75)
  12.  
  13. say "ModePro System Scanner"
  14.  
  15. say( "System Version")
  16. say( sep)
  17. address command "version"
  18. say
  19.  
  20. open(1,"t:tasks","w")
  21. writeln(1,showlist(w,,d2c(10)))
  22. close(1)
  23. address command "sort t:tasks t:tasks.2"
  24.  
  25. open(1,"t:libs","w")
  26. writeln(1,showlist(l,,d2c(10)))
  27. close(1)
  28. address command "sort t:libs t:libs.2"
  29.  
  30.  
  31.  
  32. say( "Tasks")
  33. say( sep)
  34. open(1,"t:tasks.2","r")
  35. do until eof(1)
  36.   line=readln(1)
  37.   say( line)
  38. end
  39. close(1)
  40.  
  41. say( "CLI Processes")
  42. say(sep)
  43. address command "status full"
  44.  
  45.  
  46. say( " ")
  47. say( "Libraries")
  48. say( sep)
  49. open(1,"t:libs.2","r")
  50. do until eof(1)
  51.   line=readln(1)
  52.   say( line)
  53. end
  54. close(1)
  55.  
  56. say 
  57. say( "WBStartup Drawer")
  58. say( sep)
  59. dir=showdir("sys:wbstartup",,d2c(10))
  60. say(dir)
  61.  
  62.  
  63. say 
  64. say( "s:startup-sequence")
  65. say( sep)
  66. address command "type s:startup-sequence number"
  67.  
  68.  
  69. say 
  70. say( "s:user-startup")
  71. say( sep)
  72. address command "type s:user-startup number"
  73.  
  74. say
  75. say
  76. say "*****************************************************"
  77. say "*** Don't forget to include any Enforcer reports! ***"
  78.